home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
ugly174.zip
/
UPGRADE3.BAT
< prev
next >
Wrap
DOS Batch File
|
1992-07-05
|
8KB
|
331 lines
echo off
echo RBBS batch file to upgrade RBBS v17.4 with .MRGs using QB3.0
if %1?==? goto Usage
if %1==Y goto RBBSTest
if %1==y goto RBBSTest
if %1==N goto End
if %1==n goto End
:Start
if not exist C:\QB3\BLED.EXE goto NoBLED
if not exist ANSIED-3.BAS goto CBled0
if not exist VARMOD.EXE goto NoVARMOD
:CBled0
if not exist CVAR%1.BAS goto CBled1
if exist CNFG-VAR.BAS del CNFG-VAR.BAS
ren CVAR%1.BAS CNFG-VAR.BAS
:CBled1
if not exist CONFIG.BAS goto CBled2
if not exist CNFG%1.MRG goto CBled2
C:\QB3\BLED /B/L CONFIG.BAS CNFG%1.MRG CNFG%1.BAS
del CONFIG.BAS
del CNFG%1.MRG
ren CNFG%1.BAS CONFIG.BAS
:CBled2
if not exist CNFG-SUB.BAS goto RBled0
if not exist CSUB%1.MRG goto RBled0
C:\QB3\BLED /B/L CNFG-SUB.BAS CSUB%1.MRG CSUB%1.BAS
del CNFG-SUB.BAS
del CSUB%1.MRG
ren CSUB%1.BAS CNFG-SUB.BAS
:RBled0
if not exist RVAR%1.BAS goto RBled1
if exist RBBS-VAR.BAS del RBBS-VAR.BAS
ren RVAR%1.BAS RBBS-VAR.BAS
:RBled1
if not exist RBBS-PC.BAS goto RBled2
if not exist R-PC%1.MRG goto RBled2
C:\QB3\BLED /B/L RBBS-PC.BAS R-PC%1.MRG R-PC%1.BAS
del RBBS-PC.BAS
del R-PC%1.MRG
ren R-PC%1.BAS RBBS-PC.BAS
:RBled2
if not exist RBBSSUB1.BAS goto RBled3
if not exist RSB1%1.MRG goto RBled3
C:\QB3\BLED /B/L RBBSSUB1.BAS RSB1%1.MRG RSB1%1.BAS
del RBBSSUB1.BAS
del RSB1%1.MRG
ren RSB1%1.BAS RBBSSUB1.BAS
:RBled3
if not exist RBBSSUB2.BAS goto RBled4
if not exist RSB2%1.MRG goto RBled4
C:\QB3\BLED /B/L RBBSSUB2.BAS RSB2%1.MRG RSB2%1.BAS
del RBBSSUB2.BAS
del RSB2%1.MRG
ren RSB2%1.BAS RBBSSUB2.BAS
:RBled4
if not exist RBBSSUB3.BAS goto RBled5
if not exist RSB3%1.MRG goto RBled5
C:\QB3\BLED /B/L RBBSSUB3.BAS RSB3%1.MRG RSB3%1.BAS
del RBBSSUB3.BAS
del RSB3%1.MRG
ren RSB3%1.BAS RBBSSUB3.BAS
:RBled5
if not exist RBBSSUB4.BAS goto RBled6
if not exist RSB4%1.MRG goto RBled6
C:\QB3\BLED /B/L RBBSSUB4.BAS RSB4%1.MRG RSB4%1.BAS
del RBBSSUB4.BAS
del RSB4%1.MRG
ren RSB4%1.BAS RBBSSUB4.BAS
:RBled6
if not exist RBBSSUB5.BAS goto ABled1
if not exist RSB5%1.MRG goto ABled1
C:\QB3\BLED /B/L RBBSSUB5.BAS RSB5%1.MRG RSB5%1.BAS
del RBBSSUB5.BAS
del RSB5%1.MRG
ren RSB5%1.BAS RBBSSUB5.BAS
:ABled1
if not exist ANSIED-3.BAS goto ArgTest
VARMOD %1
if not exist AED%1.MRG goto ArgTest
C:\QB3\BLED /B/L ANSIED-3.BAS AED%1.MRG AED%1.BAS
del ANSIED-3.BAS
del AED%1.MRG
ren AED%1.BAS ANSIED-3.BAS
:ArgTest
shift
if %1?==? goto End
if %1==Y goto RBBSTest
if %1==y goto RBBSTest
if %1==N goto End
if %1==n goto End
goto CBled0
:RBBSTest
if not exist RBBS-PC.BAS goto NoPC
if not exist RBBSSUB1.BAS goto NoSUB1
if not exist RBBSSUB2.BAS goto NoSUB2
if not exist RBBSSUB3.BAS goto NoSUB3
if not exist RBBSSUB4.BAS goto NoSUB4
if not exist RBBSSUB5.BAS goto NoSUB5
if not exist RBBS-VAR.BAS goto NoRVAR
if not exist C:\QB3\QB.EXE goto NoQB
if not exist C:\QB3\LIB\BCOM30.LIB goto NoBCOM
REM if not exist C:\QB3\LINK.EXE goto NoLINK
if not exist C:\QB3\GWCOM.OBJ goto NoGWCOM
if not exist 10-NET.OBJ goto No10
if not exist ANSI17.OBJ goto NoANSI
if not exist BDRIVEC2.OBJ goto NoBD
if not exist FOSSCOMM.OBJ goto NoFOSS
if not exist GIVEBK31.OBJ goto NoGIVE
if not exist PC-NET.OBJ goto NoPCNET
if not exist QBARCV6.OBJ goto NoQBARCV
if not exist RBBSDV.OBJ goto NoDV
if not exist RBBSML.OBJ goto NoML
if not exist RBBSUTIL.OBJ goto NoUTIL
if not exist XMODEM.OBJ goto NoXMOD
if not exist RBBSHS.OBJ goto NoHS
if not exist BASNOV.OBJ goto NoNOV
:ATest
if not exist ANSIED-3.BAS goto RCompile
if not exist MOVCSTR.OBJ goto NoMOVC
if not exist FINDWORD.OBJ goto NoFIND
:RCompile
echo Compiling RBBS-PC.BAS...
C:\QB3\QB RBBS-PC.BAS,RBBS-PC,NUL,/O/E/S/C:4096;
echo Compiling RBBSSUB1.BAS...
C:\QB3\QB RBBSSUB1.BAS,RBBSSUB1,NUL,/X/O;
echo Compiling RBBSSUB2.BAS...
C:\QB3\QB RBBSSUB2.BAS,RBBSSUB2,NUL,/O/E;
echo Compiling RBBSSUB3.BAS...
C:\QB3\QB RBBSSUB3.BAS,RBBSSUB3,NUL,/O/E;
echo Compiling RBBSSUB4.BAS...
C:\QB3\QB RBBSSUB4.BAS,RBBSSUB4,NUL,/O/E;
echo Compiling RBBSSUB5.BAS...
C:\QB3\QB RBBSSUB5.BAS,RBBSSUB5,NUL,/O/E;
if not exist ANSIED-3.BAS goto DoLink
echo Compiling ANSIED-3.BAS...
C:\QB3\QB ANSIED-3.BAS,ANSIED-3,NUL,/X/O/E;
:DoLink
echo RBBS-PC+ > LINK3.DAT
echo RBBSSUB1+ >> LINK3.DAT
echo RBBSSUB2+ >> LINK3.DAT
echo RBBSSUB3+ >> LINK3.DAT
echo RBBSSUB4+ >> LINK3.DAT
echo RBBSSUB5+ >> LINK3.DAT
if exist ANSIED-3.BAS echo ANSIED-3+ >> LINK3.DAT
if exist ANSIED-3.BAS echo MOVCSTR+ >> LINK3.DAT
if exist ANSIED-3.BAS echo FINDWORD+ >> LINK3.DAT
echo C:\QB3\GWCOM.OBJ+ >> LINK3.DAT
echo QBARCV6+ >> LINK3.DAT
echo ANSI17+ >> LINK3.DAT
echo XMODEM+ >> LINK3.DAT
echo RBBSML+ >> LINK3.DAT
echo BDRIVEC2+ >> LINK3.DAT
echo PC-NET+ >> LINK3.DAT
echo 10-NET+ >> LINK3.DAT
echo RBBSUTIL+ >> LINK3.DAT
echo RBBSDV+ >> LINK3.DAT
echo GIVEBK31+ >> LINK3.DAT
echo RBBSHS+ >> LINK3.DAT
echo BASNOV+ >> LINK3.DAT
echo FOSSCOMM, >> LINK3.DAT
echo RBBS-PC, >> LINK3.DAT
echo NUL, >> LINK3.DAT
echo C:\QB3\LIB\BCOM30.LIB /STACK:2048; >> LINK3.DAT
LINK @LINK3.DAT
:CCompile
if not exist CONFIG.BAS goto End
if not exist CNFG-SUB.BAS goto NoCSUB
if not exist CNFG-VAR.BAS goto NoCVAR
echo Compiling CONFIG.BAS...
C:\QB3\QB CONFIG.BAS,CONFIG,NUL,/O/E/C:4096/S;
echo Compiling CNFG-SUB.BAS...
C:\QB3\QB CNFG-SUB.BAS,CNFG-SUB,NUL,/O/E/C:4096/S;
LINK CONFIG+CNFG-SUB+RBBSUTIL+FOSSCOMM,CONFIG,NUL,C:\QB3\LIB\BCOM30.LIB;
goto End
:NoQB
echo Missing C:\QB3\QB.EXE... Aborted.
goto End
:NoLINK
echo Missing C:\QB3\LINK.EXE... Aborted.
goto End
:NoBLED
echo Missing C:\QB3\BLED.EXE... Aborted.
goto End
:NoGWCOM
echo Missing C:\QB3\GWCOM.OBJ... Aborted.
:No10
echo Missing 10-NET.OBJ... Aborted.
goto End
:NoANSI
echo Missing ANSI17.OBJ... Aborted.
goto End
:NoBD
echo Missing BDRIVEC2.OBJ... Aborted.
goto End
:NoFOSS
echo Missing FOSSCOMM.OBJ... Aborted.
goto End
:NoGIVE
echo Missing GIVEBK31.OBJ... Aborted.
goto End
:NoPCNET
echo Missing PC-NET.OBJ... Aborted.
goto End
:NoQBARCV
echo Missing QBARCV6.OBJ... Aborted.
goto End
:NoDV
echo Missing RBBSDV.OBJ... Aborted.
goto End
:NoML
echo Missing RBBSML.OBJ... Aborted.
goto End
:NoUTIL
echo Missing RBBSUTIL.OBJ... Aborted.
goto End
:NoXMOD
echo Missing XMODEM.OBJ... Aborted.
goto End
:NoHS
echo Missing RBBSHS.OBJ... Aborted.
goto End
:NoNOV
echo Missing BASNOV.OBJ... Aborted.
goto End
:NoMOVC
echo Missing MOVCSTR.OBJ (for ANSIED-3.BAS)... Aborted.
goto End
:NoFIND
echo Missing FINDWORD.OBJ (for ANSIED-3.BAS)... Aborted.
goto End
:NoPC
echo Missing RBBS-PC.BAS... Aborted.
goto End
:NoSUB1
echo Missing RBBSSUB1.BAS... Aborted.
goto End
:NoSUB2
echo Missing RBBSSUB2.BAS... Aborted.
goto End
:NoSUB3
echo Missing RBBSSUB3.BAS... Aborted.
goto End
:NoSUB4
echo Missing RBBSSUB4.BAS... Aborted.
goto End
:NoSUB5
echo Missing RBBSSUB5.BAS... Aborted.
goto End
:NoRVAR
echo Missing RBBS-VAR.BAS... Aborted.
goto End
:NoCNFG
echo Missing CONFIG.BAS... Aborted.
goto End
:NoCSUB
echo Missing CNFG-SUB.BAS... Aborted.
goto End
:NoCVAR
echo Missing CNFG-VAR.BAS... Aborted.
goto End
:NoBCOM
echo Missing C:\QB3\LIB\BCOM30.LIB... Aborted.
goto End
:NoVARMOD
echo Missing VARMOD.EXE (for ANSIED-3.BAS)... Aborted.
goto End
:Usage
echo Usage: UPGRADE3 xxxx zzzz [Y][N]
echo
echo where xxxx and zzzz are the upgrade thingies to add to
echo the end of the MRG filenames. Add the Y switch if you
echo want to compile the upgraded files, or N to skip the compile.
echo
echo If ANSIED-3.BAS exists, it will be compiled and linked into
echo the final RBBS-PC.EXE. If not, not.
echo
echo If the CONFIG files exist, they'll also be upgraded with any
echo applicable merges. If not, not.
echo
echo You can include as many merges as you like on the command
echo line.
echo
echo Ex: UPGRADE3 UGLY EDIT Y to add the UGLY and EDIT merges & compile
goto End
:End